﻿Imports extremo

Public Class DeporteEditar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Dim id = Request.Params.Get("id")

            Dim negocio = New DeporteNegocio
            Dim modelo = negocio.obtener(id)

            Me.txtiddeporte.Value = modelo.iddeporte
            Me.txtNombre.Text = modelo.nombre
            Me.txtubicacion.Text = modelo.ubicacion
            Me.txtdescripcion.Text = modelo.descripcion
            Me.txtcosto.Text = modelo.costo
            Me.txtinstructor.Text = modelo.instructor
            Me.txtfecha_evento.Text = modelo.fecha_evento
        End If
    End Sub

    Protected Sub btnRegresar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRegresar.Click
        Response.Redirect("Deportes.aspx", True)
    End Sub

    Protected Sub btnEditar_Click(sender As Object, e As EventArgs) Handles btnEditar.Click
        Try
            Dim negocio = New DeporteNegocio
            negocio.actualizar(Me.txtiddeporte.Value, Me.txtNombre.Text, Me.txtubicacion.Text, Me.txtdescripcion.Text, Me.txtcosto.Text, Me.txtinstructor.Text, Me.txtfecha_evento.Text)

            Response.Redirect("Deportes.aspx", True)
        Catch ex As Exception
            Response.Write("No se pudo actualizar")
        End Try
    End Sub
End Class